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T6404 --- MANUAL ROUTINE P/N=1635087 EC=755285 PAGE 01 T6404 --- MANUAL ROUTINE ; P/N=1635087 EC=755285 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CO’ P 1976 
3 COPY OG6404 ** MAP FC HISTORY ** 002500 2894 201 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
u uBio s ke Ce «oe ORD AR Pee ee ee ree 202 PF SPSL SSS SSS SSS STS ESS S SESS SLES ESL SE SSPE SESS SSSS SSS SSS SESS SSS SS SL SPS SES SS Ss 
5 * bd VAIRME LST eS LESS STE SELES ELE SSE SST TEST TSE SS TES EEE E TSS SEP ETE SESS SLES SSE SS ES SS SS 
6 * tek PREREQUISITES CK * 204 ** * 
7 * Kc 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * % 
Q x NONE *« 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER * * 
9 x * 207 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR te 
10 ce PSS e SSeS et SSS SES SLES SSL SLES SSL ESSE S SSS SSS SESS SS SS SL SSL SSS SSS SS 2 22 2 2 SS. 208 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TAELES USED FOR THIS % 
11 * * 209 ** PURPOSE THEY ARE: * 
12 * eC MODIFICATIONS aK * 210 ** ** 
13 * * 211 ** STEP AND RULE ADDRESS TABLE * x 
14 * MODIFICATION'S MADE TO ADD EIGHT LINE PER INCH PRINTING TO TEST * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOK2 AND **% 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEF NUMBER OF THAT RULE. * x 
EMER SESS SS CSL S SSS SS SSS SS SS SESS PSS SC SSCS S SSS SSS SS SLES SSS STS LS SS SSS SS tS SS SSS 214 ** ENTRIES ARE AS FOLLOWES ** 
17 * rf 215 ** A AN ADDRESS OF THE RULE DC STAPT AREA te 
12 * HK A REA*S INCORPORATED KK - 216 ** B THE STEP NUMBER IN DECIMAL * 
19 * 217 ** C AN EQUATE FOR THE STEP NUMBER * 
20 * NONE * 218 ** ** 
21 * * 219 ** RULE INFORMATION TABLE ** 
2D RRR OR RR ROR IR ROR RRR I OR EK I ik Ik a i Re CR IC Rak RR I I ea CIC CE eke ok ake 220 ** THIS TABLE CONTATNES THE REQUIPED INFORMATION TO EXECUTE *& 
23 «x * 221 ** THE APPROPRIATE RULE ONDER MDI. EACH RULE HAS ITS OWN * 
2 * ae ok SPFCIAL INSTRUCTIONS OK x 222 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * * 
25 * 223 ** INDICATED WITH A X'0O000' FOR THE RULE EQUATE. ** 
26 * NONE * 224 xx ke 
27 * x 225 ** SQUES ** 
DB HM HAH RR RR RR RR I RR RI RR RR I FOR IOI IORI Fo ROR Rk a i oe 2K 226 ** A) RULE EQUATE x'0100!8 ** 
29 * * 227 ** B) ADDRESS OF THE YES LEG RULE  % 
30 * eK E. C. HISTORY 4K * 228 ** ** 
31 * * 229 ** $FIXT SS 
32 * DATE O1JUL76 DATE 010CT76 DATE O2DEC76 DATE 10JUN77 * 230 ** 3} ROLE EQUATE X'0O101' ** 
33 -C. 578446 E.C. 578468 E.C. 578469 E.C. 578625 : a0 re B) ADDPESS OF MESSAGE TO PRINT ps 
35 * DATE 22JUL77 DATE O1MAR78 DATE DATE * 233 ** SSTOP ** 
36 * E.C. 578757 E.C. 755285 BeC. EC, * 234 ** A) RULE EQUATE X'0102' * * 
37 * x 235 ** B) ADDRESS OF MESSAGE * x 
BHR a Ke eo Ke i ee ee 2 ke a a oe ee a ie fe hc af 3c ae ae ae te le She ee Ke ate ake ie a ake cee hc oe fe ok he 2 ie ok 236 ** * 
002500 4O T6404 START X'2500! START ADDPESS OF ALL 'I! TYPE PROG 237 ** $GOTO x 
000100 41 QUES EQU X'0100'! EQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE EQUATE X'0200! * x 
000101 U2 @FIXT EQU X¥'0101' EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE ** 
000102 43 @STOP EOU X¥'0102' FQUATED VALUE FOR MDI STATEMENT 240 ** C) NAME OF MAP TO GO TO *% 
000200 4 aGOTO EOU X'O200! EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000201 45 @CALL EOQU X¥*0201'8 EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFE ENCE * 
000300 46 @INPT EOU X¥*0300° EQUATED VALUE FOR MDI STATEMENT 244 ** ** 
000400 47 DOUXX EOU X¥'0400'! EQUATED VALUE FOR MDI STATEMENT 245 ** SCALL - 
000500 48 aTUXX EQU X¥*'0500' EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE x*0201' * 
000600 49 @NVLD EQOU X¥*0600' EQUATED VALUE FOP MDI STATEMENT 247 ** B) ADDPESS OF MESSAGE tk 
000000 50 EC EQU x*00008 EQUATE FOR EQU 248 ** ' C) NAME OF MAP TO CALL * 
000004 51 NE EQU Xx'o004! FOUATE FOR NOT EQUAL 24U9 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000008 52 HI EQU x'o008! FOUATE FOR HIG 250 ** E) INDICATOR FOR EXTERNAL OP INTERNAL REFE2 ENCE * 
00000CcC 53 NH EOQU x'*000C"! EQUATE FOR NOT HIGH 251 #* 4k 
000010 54 LO EQOU X¥*0010! EQUATE FOR LO 252 ** SINPT 4 
000014 55 NL EQU X'0074! EQUATE FOR NOT LOW 253 ** A) RULE EQUATE x'0300! eK 
000010 56 LT EOU X¥'0010'! EQUATE FOR LESS THAN 254 ** B) INPUT TYPE (EBCDIC OR HEX) x 
o00000Cc 57 LE EOU x'oo0c! EQUATE FOR LESS THAN OR EQUAL TO 255 *x* C) ADDRESS OF YES LEG RULE x 
000008 58 GT EQU x¥'0008! EQUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA *x 
000014 59 GE EOU x'oo14! EQUATE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTH OF INPUT DATA ek 
000200 60 ON EOU X'0200! EQUATE FOR ON 258 ** F) LOWER LIMIT OF GOOD DATA Ie 
000202 61 OF EOU X¥*0202' EQUATE FOR OFF 259 ** G) HIGHER LIMIT OF GOOD DATA ex 
000204 62 MX EOU X'02048 EQUATE FOR MIXED 260 ** Ok 
000000 63 EBC FOU X'0000! EQUATE FOR EBCDIC DATA TRANSFER 261 ** SQUKX ** 
000001 64 HEX EQOU x'*0001! EQUATE FOR HEX DATA TRANSFER 262 ** A) RULE EQUATE x'O4O0O! ek 
000001 65 XTENL EQU Xx'0001° EQUATE FOR EXTERNAL PREFERENCE 263 ** B) ADDRESS OF YES LEG RULE * 
000000 66 INTRNL EQU X¥*O0000! EQUATE FOR INTERNAL REFERENCE 264 ** Cc) TU BRANCH TO ADDRESS INITIAL) * 
000000 67 PARPRM EOU X¥'00008 EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDARY) * 
000001 68 DA EOU X'0001' EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER IN BYTES x 
000002 69 UA FOU X¥'0002' EQUATE FOR UNIT ADDRESS 267 ** F) PARAMETER TO PASS TO TO eK 
000000 70 DUMMY EOU x'O0008 DUMMY FQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARA ETER ax 
001800 72 PID EQU *-X'O DOO! ADDRESS OF MDI HEADER 269 ** es 
000232 73 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 270 ** STUXX x 
00180C 74 STEPNUM EOU PID+X*'O00C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE ECUATE x'0500! ok 
OO180E 75 OPWD1 EQU PID+X'OOOE! ADDRESS OF OFTION WORD ONE 272 ** B) ADDRESS OF YES LEG RULE x 
001810 76 OPWD2 EQOU PID+X'0010! ADDRESS OF OPTION WORD TWO 273 ** C) TU BRANCH TO ADDRESS eK 
001818 77 TUSTATUS EQU PID+xX¥'0018! ADDRESS OF TU STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS SS 
00181A 78 TOWORK EQU PID+X'OO1A! ADDRESS OF TU WORK AREA 275 ** E) LENGTH OF COMPARED RESULTS eK 
00189A 79 TUPARM1 EOU PID+X'OO9A! ADDRESS OF PAPM 1 POINTER 276 ** F) MASK FIELD FOR COMPARE KK 
00189¢C 80 TUPAPM2 EOU PID+X'009C! RDDRESS OF PARM 2 POINTER 277 ** G) LENGTH OF PARAMETER IN BYTES xx 
00189E 81 TUPARM3 EQU PID+X"'OO9F! ADDRESS OF PARM 3 POINTER 278 ** H) PARAMETER TO PASS TO THE TU eK 
0018 A0 82 TUPARM4 EOU PID+X'OOAO! ADDRESS OF PARM & POINTER 279 ** T) STORE ADDRESS FOR FIRST 8 WORDS OF PAPA ETER x 
0018A2 83 TUPARMS EOU PID+X'OOA2! ADDPESS OF PAPM 5 POINTER 280 *x * 
OO18A4 84 TUPARM6 EQOU PID+X'OOA4! ADDRESS OF PARM 6 POINTER 281 ** $NVLD * 
0018A6 85 TUPARM7 FOU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 282 ** A) RULE ECUATE xXx*0600! SK 
0018A8 86 TUPARM8 EQU PID+X'OOA8? ADDRESS OF PARM 8 POINTER 284 *x* 4K. 
OO18AA 87 TUPARM9 EOD PID+X'OOAA? ADDRESS OF PARM 9 POINTER 285 ** ENTRY POINT TABLE ek 
0O018AC 88 TUPARM10 EQU PID+X*'OOAC! ADDRESS OF PARM 10 POINTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT x 
OO18AE 89 TUPARM11 EQU PID+X'OOAE! ADDRFSS OF PARM 11 POTNTER 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE Hx 
001880 90 TUPARM12 EQU PID+X*OOBO! ADDRESS OF PARM 12 POINTER 288 *x* REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: # 
0018B2 91 TUPAPRM13 EOU PID+X'O00OB2'! ADDRESS OF PARM 13 POINTER 289 ** OK 
0018 B4 92 TUPAPRM14 EOU PID+X'OOBY! ADDPRESS OF PARM 14 POINTER 290 ** B} NAME OF ENTRY POINT ek 
0018 B6 93 TUPARM15 EQOU PID+X'OOR6! ADDRESS OF PARM 15 POINTER 291 ** ADDRESS OF ENTRY POINT RULE TABLE ex 
0018B8 94 TUPARM16 EOU PTID+X'OORB8! ADDPESS OF PARM 16 POINTER 292 ** xk 
OO18BA 95 TUMSGWTR EOQU PID+X*OOBA't ADDRESS OF -> TO COMMON MSG WRITER 293 ** THE ENTRY POINT TABLE END IS INDICATED RY A x'0000! *K 
OO18BE 96 TUUA EQU PID+X"OOBE! ADDRESS OF UNIT ADDPESS IN EBC 294 ** pe: 
0018C0 97 TUDA EQU PID+X'O00CO! ADDRESS OF DEVICE ADDRESS IN EBC 295 ** MESSAGE TABLE ak 
0018C2 98 TUBUFF EOU PID+X'00C2! ADDRESS OF LAST USED WORD IN MAP 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR eX 
0018C4 99 TULAST EOU PID+x'O0C4! ADDRESS OF LAST ADDRESSABLE WOPFD 297 xx VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: a 
0018C6 100 TURESULN EGU PID+X'00C6! ADDRESS OF LENGTH OF TU RESULTS 298 ** ce 
0018C8 101 TURESUL EOQU PID+X'O00CB! ADDRESS OF TU RESULTS FIELD 299 ** A) EQUATE FOR START OF MESSAGE BLOCK ss 
0018FC 102 MAENAME FEQU PID+X"'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUMBER OF LINES OF MESSAGE * 
001948 103 TUINPT EOU PID+x'0148"8 ADDRESS OF $INPT DATA 301 ** C) LENGTH OF FOLLOWING LINE eK 
00196E 104 PARMARA EOD PID+X'O16E! ADDPFSS OF $INPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE * 
0019B8 105 @DCADD1 EQU PID+X*O1B8" MDI POINTER 303 ** FE) LENGTH OF FOLLOWING LINE x 
OO19BA 106 @DCADD2 EQU PID+X*O1BA? MDI FOINTER 304 ** F) SECOND LINE OF MESSAGE #K 
0019C4 107 SUPSTAT EQu PID+X*'O1C4! ADDRESS OF MDI STATUS 305 ** G) ETC. Hk 
0019D0 108 DEVADD EOQU PID+X*O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 306 ** OK 
OO19DA 109 DEVADD1 EQU PID+X"O1DA!t ADDRESS OF DEVICE ADDRESS TABLE 1 BOT HI Me A Be He ee ae he Fe he ie ee He ee He ee I eK ic ae ie Ae ae ae He ae hc hoc ae feo ie ae he afc fe hc ae he ie he oe ie coe ie ae oe oe ic ae ae ae oe cake oe ee oe 
OO01S R4 110 DEVADD2 EQOU PID+X'OTBY4! ADDRESS OF DEVICE ADDRESS TABLE 2 3 QB KM eH He AE i fe HE fe ee ee i a ie 2 ea fe a a he ee afc ah eae of 2 2 2 fe 2 fe 2c ae he ake 3 ae 2c ae 2 2 oe 2K oi hc a akc Re 2 ok oe hc 
0019EE 111 DEVADD3 EQU PID+X*O1EFE! ADDRESS OF DEVICE ADDPESS TABLF 3 
0019F8 112 DEVADD4Y EQU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE U 
001402 113 DEVADDS EOU PID+X'0202' ADDRESS OF DEVICE ADDFESS TABLE 5 
001A0C 114 DEVADD6 EQU PID+x'020C! ADDRESS IF DEVICE ADDPESS TABLE 6 
001A16 ee DEVADD7 BOU an PID+X*0216' ADDRESS OF DEVICE ADDRESS TABLE 7 
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T6404 --- MANUAL ROUTINE P/N=1635087 EC=755285 PAGE 05 T6404 --- MANUAL ROUTINE P/N=1635087 EC=755285 PAGE O5A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00001B 999 ATOH EQU 27 ASCII TO HEX SVC (STPING 002C5A 6FOD 2C4A 1118+T6404 MVW R7, TURTN SAVE RETURN ADDRESS 
00001C 1000 HTOA EQU 28 HEX TO ASCII SVC (STRING 002C5E 4020 2C12 6404 1119+ MVWI xX'6404', STUID SAVE TU ID FOR DISPLAY 
00001D 1001 ETOA EQU 29 FBCDIC TO ASCIT SVC (STRING 002C64 4424 2C0C 1120+ MVA OPTN N1,R RA SET UP POINTER ADRS IN R4Y 
QOQOO00TE 1002 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 002C68 6E£03 2F34 1121+ BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
OO001F 1003 READI EQU 31 READ DATA SETS FOR MDI/UTIL 002C6C 2F68 1122+ DC A (SEPP $) ERPOR ADPS FOR INVALID PREP 
000020 1004 WRITI EQU 32 WRITE DATA SETS FOR UTIL 1123+* 

1006 3 ROR IG IO I ROR I RO IR II Rok Reka a aR ak ai fe 3) a ake a ke a fe a ak ae ake a a a a kc keke ke ic ak oc kek akc oi akc a ak ake ok OO0O2C6E C925 2CO0E 1124 MVWZ OPTN2,R1 CLEAR OPTION 2 

1007 * x 002c72 090C 1125 MVBI SET UP LOOP CNTL TO BUILD THE DCB 

1008 * EQUATES USED BY TU'S AS CONSTANTS * 002C74 6A28 189A 1126 T6404B MVW ari TUPARM1) ,R2 GET THE ADRS OF THE PARM PER R1 

1009 * 0C2c78 1004 1127 JZ Suc * AND CHECK FOR NO ENTPY 

1010 RAR ROR ORR IOI IGOR II GO oi ii ok ok go ik i igi kak doko iti ak at ak ik kak ak ak OO2C7A 6838 189A 1128 MVW 0, 4 7 TUPARM1) *,RO MOVE THE DATA INTO A FEG AND 
OOOO4E 1011 PLUS EQU Ct+t PLUS CHAR O002C7E 682D 189A 1129 MVW 0 e{Rl, ,TUPA mf) * THEN INTO THE DCB TABLE 
000060 1012 MINUS EOU ct-t MINUS CHAR 002C82 O1FE 1130 T6404C ABI ADJUST CONTROL REG 
000000 1014 ZERO EOQU 0 002c84 1AF7 1131 INN aehoun * AND DO THE NEXT PARM IF NOT NEG 
000001 1015 ONE FOU 1 1132 * 
000002 1016 TWO EQU 2 002C86 8828 18A4 30E4 1133 MVW TUPARM6,CSBCT MOVE BYTE COUNT INTO CS DCB ENTRY 
000003 1017 THREE EOU 3 002C8C 6B08 18A8 1134 MVW TUPARMS , ’R3 GET ADRS OF BUFF # AND MOD 
000004 1018 FOUR EOQU 4 002C90 1006 1135 JZ BCH IF NO BUFFER OR MODIFIEP® 
000005 1019 FIVE EQU 5 002Cc92 CBCO 1136 MVW (83) nF MOVE BUFFER # AND MOD INTO PEG 
000006 1020 SIX EQU 6 002c94 7344 1137 MVW 4 SAVE BUFFER FROM # FOR LATER 
000007 1021 SEVEN EQU 7 002C96 1A01 1138 INN rEGOaD BCH IF NO COMPARE OPERATION 
000008 1022 EIGHT EOU 8 002c98 4C5F 1139 TBTS (R4&,CMP) SET COMPARE SWITCH 
000009 1023 NINE FOU 9 002C9A 7B64 FOOO 1140 T6404D RBTWI X'FO00',R3 RESET COMPARE CONTROL BIT 
OOOOOA 1024 TEN EOU 10 O002C9E C328 2F27 1141 T6404UE MVB $3 TomMobh+1 PUT MODIFIER IN IO BLOCK AND 
00000B 1025 ELEVN EOU 11 11 OO2CA2 3342 1142 SRL 8, k3 * POSITION BUFFER NUMBER AND MULT 
00000C 1026 TWELV EOU 12 12 OO2CA4 3309 1143 SLL ‘R3 * TIMES TWO SO THAT THE PGM MAY 
00000D 1027 THRTN EOQU 13 13 0O02CA6 1801 1144 JNZ TE40u¢ BCH IF BUFF #1-4 BEING REQUESTED 
O0000F 1028 FIVIN EOU 15 15 002CA8 4C5E 1145 TBTS cH) SET 'CHAR SUPPLIED! CONTROL BIT 
0000 10 1029 SIXTN EQU 16 16 OO2CAA 8B28 2D4A 18A8 1146 T6404G MVW a *T6LUOUV) ,TUPARMS MOVE PROPER BUFFER ADRS INTO DCB 
000020 1030 THRY2 EQU 32 32 1147 * 
000040 1031 SIXT4 EOD 64 64 002CBO0 6908 18AC 1148 MVW TOUPARN 10, R1 GET ADRS OF LOOP COUNT AND 
000080 1032 ONE28 EOU 128 128 OO2CB4 100F 1149 SZ * BCH IF ZERO 
000100 1033 THWOS6 EQOU 256 256 OO2CR6 C940 1150 MVW 4) ee MOVE LOOP COUNT INTO R1, NOT ZERO 
000400 1034 ONEK EOU 1024 1024 002CB8 7104 1151 MVW 6 SAVE LOOP COUNT TO USE LATEP 
000800 1035 TWOK EOU 2048 2048 0OO2CBA 7800 OOFF 1152 NWI N'OOFFt ,R0 REMOVE EBC CHARACTER SUPPLIED 
000Cc00 1036 THREK EQD 3072 3072 OO2CBE 4CI1E 1153 TBT 16 R4,CH) CHECK FOR 'CHAR SUPPLIED! CNTL BIT 
001000 1037 FOUPK EOU 4096 “096 002ccO 1008 1154 JZ e4bur BCH IF NOT FILL BUFFER AND ISSUE I/0 
FFFFFF 1039 1 FOU ~1 = 002cC2 3142 1155 SPL POSITION THE EBC CHARACTER SUPPLIED 
FFFFFE 1040 M2 EOU -2 a9 002ccC4 6F08 18A6 1156 MVW nOPAnMT, R7 GET THE BYTE COUNT FROM DCB TABLE 
FFFFFD 1041 M3 EQU -3 -3 002CC8 T7FE1 0010 1157 AWI R7 ADD TO CLEAR BUFFER FROM POWER UP 
FFFFFC 1042 M4 EOU ~4 -4 002CCC 6B08 18A8 1158 MVW DOSAPus, R3 * AND THE BUFFER ADRS 

1OUQ KKK KKK EU RRA Fe eT eee ee eT eee eRe NC Tee eee 002CDO 296C 1159 FFN R1 (R3) * AND FILL THE BUFFER 

1045 * 002CD2 4020 2F24 189A 1160 T6404 MVA TUPARM1, LODCB SET DCB ADRS IN IO BLOCK 

1046 * THE FOLLOWING ARE EQUATES FOP BIT DISPLACEMENTS FROM THE 002CD8 5000 1161 NOP 

1047 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * OO2CDA 6E03 2E3C 1162 BAL XI01,R6 GO ISSUE ie. VIA DCP 

1048 * x OO2CDE 2D38 1163 DC a (T6404x) ERROR RTN ADRS 

OPES ESLSSOSCS COC COSC SSS SSS SSS SSS LCCC SSSSL CSS SSL SSCS SS SSL SS SSS LLL SSS SS 002CEO 402B 180E 10CO 1164 TWI X'10C0O! ,OPWD1 TS ANY LOOPING ON ? 
000000 1050 BSO EQU 0 002CE5 100D 1165 JZ T64O04L * NO, BYPASS DELAY 
000001 1051 BS1 EQU 1 OO2CE8 7907 O00C8 1166 TWI X'OOC8',F1 * YES; IS PRINT 'H' OWN ? 
000002 1052 BS2 EQU 2 OO2CEC 1202 1167 JN T6404I * YES, GO DO DELAY 
000003 1053 BS3 EOU 3 OO2CRE 4a07 1168 TBT iy, 2} * NO: IS RIPPLE BPINT ON ? 
000004 1054 BS4& EQU 4 GO2CFO 1008 1169 JZ 6464 *NO, BYPASS DE 
000005 1055 BS5 EQU 5 OO2CF2 4020 2D48 1B58 1170 T64043 MVWI 7000, T64042Z x vfs, SET DELRY * COUNTER 
000006 1056 BS6 EOU 6 OO2CF8 6002 1171 T6404K SVC IDLF GET 260 US DELAY (TOT DELA Y=1.3 SEC) 
000007 1057 BS7 EOU 7 OO2CFA 4029 2D48 FFFF 1172 AWI -1,T6404Z DECREMENT DELAY COUNTER 
000008 1058 BS8 EQU 8 002D00 i8FB 1173 JNZ T6404K GO GET MORE DELAY IF COUNT NOT 0 
000009 1059 BS9 EQU 9 002D02 4029 18A8 0001 1174 T6404L AWI 1,TUPARM8 ADVANCE WRITE BUFFER ADRS 
OOOOOA 1060 BS10 EQU 10 002D08 BS8E4 1175 JCT T6UO4T,RO * AND LOOP UNTIL RO= 0 
000008 1061 BS11 EQN 11 1176 * 
00000C 1062 BS12 EOU 12 OO2D0A 6B08 30F4 1177 MVW CSBCT,R3 GET THE BYTE COUNT FOP CS STATUS 
00000D 1063 BS13 EOU 13 0OO2D0E 1003 1178 JZ T64O4M * AND BCH IF NO BYTE COUNT 
OOO00E 1064 BS14 EOQU 14 002D10 6503 2E28 1179 BAL XIOCS-4 ,P6 GO GET CYCLE STEAL STATUS 
OO0000F 1065 BS15 EQU 15 002D14 2F68 1180 DC A (S$ERRS) ERROR RTN ADRS 

1067 COPY T6404 1181 * 

1068 T6404 TUI 002D16 3209 1182 T6404M SLL 1,R2 REMOVE CONTROL BIT 

1 OG SH KK HR HH Hee He He He eK He He He a ee He he ee ee ie ee i i aK ae ee ie He He ee He eK eo KKK KKK QOBFEB TG ** 002D18 3262 1183 SRL 445 R2 * AND POSTTION IT TO SELECT BUFFER 

1070+* 002D1A 1008 1184 JZ T6404x * NO, BCH TO NEXT FUNCTION 

1071+* TEST UNIT 002D1C 6918 18AA 1185 MVW TUPARM9O* ,F1 GET fHE BYTE DISPLACEMENT 

1072+* 002D20 694E 2D4A 1186 AW R2,T6404V) ,R1 ADD BUFFER ADRS TO DISPLACEMENT 

1073+* ISSUE AN I/O COMMAND USING SUPPLIED DCB 13 J0L76 002D24 CB40 1187 MVW R1f,R3 GET WORD DEFINED AND THEN CHECK 

10744+% 002026 4C1F 1188 TBT P4,CMP) Is Noe BUFFER # INDICATE DTAG BUFFER 

1075+* PURPOSE 002D28 1004 1189 JZ 6464s * CONTINUE FUNCTION REQUIRED 

1076+* 002D2A 6B2B 0002 1190 XW {RI 2) ,R3 * yes, XOR WITH SECOND WORD AND 

1077+% TO ISSUE AN I/O COMMAND THAT HAS BEEN SET UP IN THE DCB. 002D2E 7B61 0001 1191 AWI R43 * ADJ’ RESULTS TO BE ZERO THEN 

1078+ IF TUPARM6 IS NOT ZERO A START CYCLE STEAL STATUS COMMAND WILL 002D32 6B0D 18C8 1192 T6404US MVW R434, TURESUL * SEND IT BACK TO MDI 

1079+* BE ISSUED AFTER THE FIRST I/O COMMAND HAS BEEN COMPLETED. 002D36 5003 1193 J T6404 

1080+* TUPARMQ INDICATES THE DISPLACEMENT OF THE WORD OF DATA THAT TIS 002D38 8828 2Cc14 18C8 1194 T64O04X MVW SIOIN, TURESUL MOVE CONDITION CODES INTO MDI TO CK 

es REQUESTED TO BE SENT BACK TO COMPARF. 002D3E 4020 30E4 0010 ee T64OUY sie 16,CSB8CT RESTORE CS BYTE COUNT 

+ 

1083+* CALLING SEQUENCE 002D44 6802 2FB8 1197+ B $SCONX RETURN TO MDI CONTROLLER 

10844x 119 BR KK he He He he ee ae ee fe a fe ate He 2 fe ae ie 2 eae ae ae ae 2 oe aie 2 i a ee ae ae ee ee ae ee ae he hee ee i 2 coe ie ak ok a ok 

1085+* MDI=OTUXX, T6404 0703 ,EQ, PLNG=XX, PAPM=PRM1/PRN2/PRM3/P PMU /? PMS/ 002D48 0000 1199 T6404Z DC Ata) DELAY COUNTER 

1086+* SRN PRN /CBOM/DISP/CHLD’ 1200 * 

1087+%* 1201 * BUFFER ADDRESS TABLE 

1088+ WHERE THE PARAMETERS HAVE THE FOLLOWING MEANING: 1202 * 

1089+* : OO2D4A 3058 1203 T6404V DC A(WERBUF O= WRITE BUFFER FOP SUPPLIED CHAP 

1090+* PARM . OO2D4C 2D56 1204 DC A (TCHAR 1= WRITE BUFFEP 

1091+* 1 PRM1= THE CONTROL INFORMATION FOUND IN THE DCB OO2ZD4E 31F6 1205 DC A (DIAGBF) 2= DIAGNOSTIC BUFFEP 

1092+* 2 PRM2= £0 RMS 002D50 2c32 1206 DC A(CSBUF 3= CS STATUS BUFFEP 

1093+* 3 PRM3= SP 002D52 31F6 1207 DC A(RDBUF 4= READ BUFFER 

10944+* 4 PRM4= 8/4 ADR 002D54 2DF6 1208 DC A (DIAXFR) 5= DIAGNOSTIC XFPR BUFFER 

10954+* 5 PRM5= 1209 * 

1096+* 6 PRM6= pert eOuNT FOR THE STAPT CYCLE STATUS, IF USED 1210 * ALPHANUMERIC CHARACTERS 

1097+* 7 PRM7J= THE BYTE COUNT FOR THE DATA TO BE TRANSFERED 1211 * 

1098+* 8 C = THE BUFFER NUMBER THAT DATA IS BEING REQUESTED FROM, 002D56 40 1212 TCHAR DC x'4or SPACE 

1099+ ‘ O- NO DATA BEING REQUESTED, 1- WRITE BUFFER 002D57 cic2Cc3CcuCc5Cc6CT7C8C 1213 DC C'ABCDEFGHI' 

1100+% 2 2- DIAG BUFFER, 3- CS STATOS BUFFER, 4- READ BUFFER, 002D60 4A 1214 DC x WAt CENT SIGN 

1101+%* ‘ - A SPECIAL DEAGNOSTIC COMEARE OF THE CHECKSUM AND THE 002D61 4B4UCHD4SEYSF 1215 DC 2< (+ " 

1102+* ‘ RESULTS APE TO RE SENT BACK TO MDI TO BE CHECKED. Q002D66 DO 1216 DC Xt} CLOSING BRACE 

1103+% B = THE BUFFER NUMBEP THAT IS TO BE USED AS AN OUTPUT BUFFER, OO2D67 DID2ZD3D4ED5DADIDB8D 1217 DC C1SKLMNOPOR! $#) 35! 

110 4+* Z O- CHAR SUPPLIED- WRITE BUFFER, 1- RIPPLE PATTERN Q002D76 EQA1 1218 DC X'EOA1t REV SLASH, TILDE 

1105+%* : 2- DIAG BUFFER, 3- CS STATUS BOFFEP, 4- PEAD BUFFER, OO02D78 E2EIE4ESE6ETESES 1219 DC CISTUVUXYZ! 

1106+* . 5- DIAG XFR BUSFER. 002D80 6A 1220 DC X'6A! VERTICAL LINE 

1107+* OM = THE MODIFIER OF THE CYCLE STEAL COMMAND. 002D81 6BS6C6D6E6FFOFIF2F 1221 DC C',.% >70123456789:#0't=! 

1108+* 9 DISP= THE DISPLACEMENT WITHIN THE SELECTED BUFFER. 002D95 CO T22 2 DC x' COT OPENING BRACE 

1109+* 10 CH = THE EBCDIC CHARACTER THAT IS SUPPLIED. 002D96 506061 1223 DC Cleary % 

1110+* LP = THE NUMBER OF TIMES THE FIRST I/O COMMAND IS TO BE DONE. 002D99 J9O4UAATEO 1224 DC X'*794AA1E0! GRVE ACC, CENT,TILDE,PEV SL 

1111+* // =A ‘//* INDICATES THAT NO VALUE ITS SUPPLIED. 002D9D 4C4HFSASBSF7B7CHO4 1225 DC ish te ' 

11124+% OO2DA6 40 1226 DC X'4g' SPACE 

1113+* RETURN CONTROL OO2DA7 C1IC2C3C4UC5C6C7TC8C 1227 DC C'ABCDEFGHI! 

1114+ 002DBO 4A 1228 DC X'Uat CENT SIGN 

1115+% B TURTN* FETURN TO MDI SUPERVISOR 902DB1 4B4C4D4EYF 1229 DC Ch. (4+]|" 

1116+* 0O2DB6 DO 1230 DC X'po! CLOSING BRACE 

TTT Te RR HK He HK He eK ee 2 Ke ee eH he he 2 ee i ee Ee i a ee ee ee a ee a i ee ee ke OO2DB7 DIDZ2ZD3DUD5D6D7D8D 1231 DC C'IKLMNOPOR! $*) 37 ' 


‘ 


T6404 --- MANUAL ROUTINE P/N=1635087 EC=755285 PAGE 06 T6404 --- MANUAL POUTINE P/N=1635087 EC=755285 PAGE O6A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 LOCTR OBJECT TFXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002DC6 EOAI 1232 pc X'EOA1! REV SLASH, TILDE 13484+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
002DC8 E2E3EUESEGE7E8E9 1233 DC C'STUVWXYZ" 1349+% 
O0O2DD0 6A 1234 DC X'6OA! VERTICAL LINE OO2E74 ODO00 1350+ MVBI X'OO',R5 SET UP WORK REG FOR 'LOST INTPR! 
002DD1 6B6C6D6F6FFOFIF2F 1235 DC Ct. % 520123456789: #0't= OO2E76 4CA3 1351+XI08 MTBTR (Ra TN) HAS INTERRUPT BEEN RECFIVED 
002DE5 CO 1236 DC X'cor OPENING PRACE 002E78 1238 1352+ JON ocK * YES, CHECK IF ALL WAS SATISFACTORY 
002DE6 506061 1237 DC C'sg-y' OO2E7A 6002 1353+ SVC SOLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
002DE9 7946AA1E0 1238 DC X'794RA1E0! GRVE ACC, CENT,TILDE,REV SL 13544+% SUPVP WILL RETURN HERE 
OO2DED 4C4FS5A5B5F7B7C404 1239 DC Ct<]i$isa OO2E7C 7DA1 0001 1355+ AWI 3 1,R5 ADVANCE TIME OUT COUNT 
1240 * OO2E80 18FA 1356+ INZ  xto8 BCH IF TIME OUT NOT REACHED 
OO2DF6 4219 1241 DIAXFR DC x'4219! MICROCODE 002E82 4Cé61 1357+ TBTS (Pa ER) SET ON EPROP CONTROL BIT 
002DF8 F001 1242 DC X'FOO1! 002E84 68D2 0000 1358+ B R6{ * ERR 'NO INTERRUPT! 
OO2ZDFA 5573 1243 DC y¥' 5573! WRITTEN V3 OOF KERR K KK KK KK KK KKK EE EE CE ETO EE EE EEO LE ETT e eee TEE OT CO re 
OO2DFC EBAD 1244 DC X'"EBAD! 1361+* 
OO2DFE 98F1 1245 DC X'OSF1! TO ATOM 1362+* SUBROUTINE 
002E00 498F 1246 DC X'GOBF! 1363+* 
002E02 FB8AC 1247 DC X'FBAC! TO ALLOW 13644+* I/O EXECUTF ERROR HANDLING ROUTINE 
OO2EO4Y 4219 1248 DC X'42198 1365+* 
002E06 4988 1249 DC X'49SEt 8 1366+* PURPOSE 
002E08 F8AC 1250 DC X'FBAC! 1367+* 
OO2ZEOA 4239 1251 DC X'4239' LINES 1368+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
00O2EOC p115 1252 DC X'D115! 13694 PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
OO2ROE 45a4 1253 DC X'G5age PER 13704+* SUPERVISOR AND IT WAS NOT ACCEPTED 
002E10 F8B5 1254 DC X'ESBS? 13714+% 
002F12 42E4 1255 DC X'4QEG' INCH 1372+* CALLING SEQUENCE 
002E14 45D4 1256 DC X'a5pye 1373+* 
002E16 E8BB 1257 DC X'ESRB! ON THE 1374+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
002F18 4294 1258 DC X'4294" 1375+* 
002E1A D339 1259 DC X¥'p339' 4974 13764+* RETURN CONTROL 
002E1C DBAF 1260 DC X'DBAF' 1377+* 
0O0O2E1E D89B 1261 DC X'D89Bt PRINTER 1378+* B (R6) * RETURN TO USERS ERROR HANDLER 
002E20 D897 1262 DC X'D897' 13794+* 
1264 XEQIT 13 BOF HK KK eH He HH ee ee oe a 2 He he fe he ee ee i he 2 2 i a a 8 2h Rc oe ik i oi ic 2 ae i ae ofc 2c i 9 fe i oe ic fc of ok 
T26 OF FREE K KK KK PES SSL SL SL SS SSS SS SSS SLES SL SSL SPSL SS LSPS eeeS eee Le eS Ss 22-3 **XIOTILIA** 1381+* 
1266+* 13824+* CC O= DEVICE NOT ATTACHED 
1267+* SUB-ROUTINE 1383+* FOR 1= DFVICE BUSY 
1268+* 13844+* I/70 2= DEVICE BUSY AFTER PESET 
1269+% EXECUTE INPUT AND OUTPUT COMMANDS 13854+% 3= COMMAND REJECT 
12704+* 1386+* 4= INTERVENTION REQUIRED 
1271+* PURPOSE 1387+* 5= INTERFACE DATA CHECK 
1272+* 13884+* 6= CONTROLLER BUSY 
12734* TO EXECUTE ALL I/0 COMMANDS FROM A COMMON PLACE. 13894+* 7= I/O COMMAND EXCEPTED 
12744* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 1390+* 
1275+* 002E88 706E 1391#XIOER DC X"70EE! COPY STATUS ANY LEVEL INT) R3 
1276+% 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED OO2E8A 336A 1392+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
1277+% THE I/0 COMMAND. OO2F8C C328 2C14 1393+ MVB  B3,$I0IN * DUT IN LOG OUT AREA 
1278+% 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 002E90 68D2 0000 1394+ B (Rb) * RETURN TO USER ERROR HANDLER 
1279+* ISSUED BY THIS SUBROUTINE. V3 DG HH HH RM HH KK He He He He He Re He 2 9 2 2h 2 fk te ok I ea fe ok ak ke 2c oie oi oe ake kok kek ke ak kok tk ok kK 1 UA DR 76 ** 
12804+%* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 13974+* IL 
128 14+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 1398+* SUB-ROUTINE IL 
1282+* 4, RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 13994+* IL 
1283+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT TS FOUND, 1400+* ERROR INTEPRUPT RUNS ON INTERRUPT LEVFL 'S$INTL! IL 
12844+% MYSTERY INTEPRUPT (HT) CONTEOL BIT IS SET. 14014+% IL 
1285+* 5. MOVES THE ADDRESS OF THE CONTROL BLOCK IN R7 SET THE 1402+* PURPOSE IL 
1286+* EXPECTED INTERRUPT CONTEOL Brit AND ISSUE THE 'své ART. 14034+* TI 
12874+% 6. WHEN THE SUPVR RETUPNS AFTER ISSUING THE 1/0 COMMAND. TIMING 140 44% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
1288+% STARTS TO DETERMINE A LOST INTERRUPT. 14054+* OR THE INTEFRUPTING CONDITION CODE DOES NOT AGREE WITH THF IL 
1289+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF TT 1406+* EXPECTED CODE. TL 
1290+4+* WAS AN EPROP OP OKAY AND EXIT OFF THE INTERRUPT LEVEL. 140 7+* IL 
1291+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVE 1408+* CALLING SEQUENCE IL 
12924% 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 1409+* TL 
12934% 10. CHECK IF THERE WAS AN ERROF CONDITION, IF NOT PETNPN. 14104* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT TL 
129U+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 14114+* IL 
1295+% 12. CHECK IF A CYCLE STFAL OPERATION WAS IN PROGRESS THAT WAS 1412+* RETURN CONTROL TL 
1296+% ISSUED BY THIS SUBROUTINE. 14134%* TL 
1297+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 14144% SVC EXIT RETURN TO USER VIA SUPVR IL 
1298+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHE BIT BEING ON, 14154* TL 
1299+* COUNT TT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. VG HR RH A HHH He He He eH He eH He Hee A ec 2 2 2 ce i i a he ci a a te he oR ie a ae ak ke oie ic ok tke oe ok kkk kK T TL 
1300+* 141 74+ IL 
1301+#* CALLING SEQUENCE 14184* CC O= CONTROLLER END ISB O= ADD STATUS TL 
1302+* 1419+* FOR 1= PROGRAM CONTROL INTERRUPT _ BITS 1= COMD REJECT IL 
1303+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1420+* INTR 2= EXCEPTION INTERRUPT FOR = INCOR LENGTH IL 
13044+* 14214% 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
1305+* --> BAL x10 OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 1422+* 4= ATTENTION INTERRUPT = STG DATA CK IL 
1306+* --> BAL xI01 MOD PARM PRELOADED IN 'romob' 1423+% 5= ATTENTION / PROGRAM CNTL INTR = INV STG ADRS IL 
1307+* --> BAL XIOCS,R6 OP XEQ START CYCLE STEAL STATUS, MOD=F 14244% 6= ATTENTION / EXCEPTION INTR = PROTRCT CK Tr 
1308+* --> BAL  XIOCS—4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 1425+% J= ATTENTION 7 DEVICE END INTR = I-FACE DATA IL 
13094* a AND DOES NOT POST INTERRUPT STATUS) 14264+* IL 
1310+* 002E94 7068 1427+INTER DC X'"706E! COPY STATUS ANY LEVEL INTO R3 IL 
1311+* RETURN CONTROL 002F96 336A 1428+ SRL  13,R3 POSITION INDICATORS IN R3 IL 
13124+* 002F98 4424 2c0C 1429+ MVA OPTN1,RG SET UP BASE ADRS IL 
13134+% BXS R6, 2) PETURN TO USER NO ERROR OO2E9C 4c28 14304 TBT (Ra cS) IS CS IN PROGRESS IL 
13144+* OR B RG { * RETURN AND RETRY ON ERROR OO2E9E 1006 1431+ JOFF INTES NO IL 
13:15 A CAIRO IA II IO ICR EOI IIIS I IIE OO2EAO 4C6A 1432+ TBTS (R4,CE TUEH ON CYCIE STEAL INTER EPROP IL 
002E22 CB25 2F26 13174XIO  MVWZ LIOMOD,P3 SET MOF OF 0 FOR CYCLE STEAL OP OO2FA2 6FOD 2c40 14334 MVW R7,CSTLB SAVE CS ERR ISB VALUE, BITS 0-7 IL 
002E26 SOOA 1318+ J XI01 CS I/O'S ARE NOT RETPIED OO2FA6 C328 2C41 14344 MVB  R3/CSTL8+1 * AND THE COND CODE TL 
13194+* OO2EAA 500A 1435+ J INTR1 TL 
002528 4CAA 1320+ TBTR (Ru CE RESET CS STATUS INTER ERROP INDICAT. OO2EAC 4c24 14364INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROP IND TL 
OO2E2A UC6B 1321+ TBTS (tP4’cs SET "CYCLE STEAL STATUS! IN PROGRESS OO2ZEAE 1002 14374 JOFF tntht BCH IF NOT EXPECTED IL 
002F2C 4020 2F24 30D8 13224+XIOCS MVA  CSDCB,TODCB SET UP CONTROL BLOCK FOR SVC CALL OO2EBO F304 1438+ CBI 4,R3 IS THIS AN "ATTENTION' INTR IL 
002E32 4020 2F26 OO0F 1323+ MVWI X'OOOFt, TOMOD SET CYCLE STEAL MODIFIER 0OO2EB2 1006 14394 JE INTR1 * YES, BCH TO END INTR SEQUENCE IL 
002E38 4C28 1324+ TBT (Ru CS) TS CS IN PROGRESS, ERPOR CONDITION OO2EB4 4C61 14404INTET TBTS (RU,ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
002B3A 1213 1325+ JON To? * YES, BYPASS SAVING I/O ADRS 0OO2EB6 5004 14414 J nth TL 
002F3C 6E0D 2C18 1326+XI01 MVW  R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 14424* THE ERROR INTERRUPT USES THE SAME TIL 
00O2BR40 4324 2¢22 1327+ MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 14434* ENDING SEQUENCE AS THE NORMAL INTR IL 
OO2E44 6D08 2F24 1328+ MVW  TIODCB,R5 * AND THE FROM ADRS, ALONG WITH 1 O05 4 AO CIO GGG aR ge aaa 7 A PR76 TL 
OO2E48 OF10 13294 MVBI 16,R7 * THE NUMBEP OF MOVES 14464+* IL 
OO2E4A 2D64 1330+ MVFN §R9) §P3) MOVE 1 STATUS WORD AND ADJUST 1447+* SOUBROUTINE IL 
OO2E4C OBFF 1331+ MVBI 255,8 CLEAR CYCLE STATUS BUFFER 1U484% IL 
OO2E4E 4524 232 1332+ MVA  CSBOF,R5 * TO ALL ONES * 14494* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL "$INTL! IL 
002E52 OF10 1333+ MVBI 16,R7 * 14504+* TL 
002E54 2BAC 13344 FFN R3 4R5) * 1451+* PURPOSE TL 
002E56 4020 2C14 0708 1335+ MVWI X'6708',$I0IN OVERLAY OLD CONDITION CODES 14524% IL 
OO2E5C CB25 2C16 1336+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 145 3e4 TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
+ + 
002E60 4Ccat 1338+ TBTP (R4,ER RESET ANY ERROR BEFORE 1/O COMMAND 1455+* CALLING SEQUENCE IL 
002E62 4CA3 1339+XI02 TBTR (tR4/IN CLEAP INTERRUPT RECEIVED CNTL BIT 14564 TL 
O0O2E64 4724 2F20 13404 MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 145 74% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED TL 
002E68 4CA6 1341+ TBTR (R4, SLE) RESET LEVEL ERROR INDICATOR 145 94+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
OO2E6A 4CH2 13424 TBTS (PG )XT) SET EXPECTED INTR CONTROL BIT 14594* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 
OO2E6C 600A 13434 SVC TART CALL SUPVP FOR 1/0 COMMAND 1460+% COMMON SECTION IS HANDLED HERE. IL 
+ 
OO2E6E 4CAT 1345+ TBTR (R4,NT) IS AN INTR EXPECTED 1462+* RETURN CONTROL IL 
002E70 6ACO 0002 1346+ N R6, 2) * NO, PETURN TO USEP 146 34% IL 
13474+* 14644+* SVC EXIT RETURN TO USER VIA SUPVR IL 
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TO INTERRUPT. 
CALLING SEQUENCE 
THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 


--> BAL SCONC,F6 
--> BAL SCONP,F6 


RETURN CONTROL 


BXS (Re 2) RETURN TO USER VIA REG 6 IF OKAY 
OR B P6f * IF THE DEVICE COULD NOT BE CONNECTED 


ee He He He He a HC hee eH Re ee He ie He i He He Ke ee a a eA ee A a Ra ee ee ie ae i ie he ke ee ie IK oe a he oc 2k ok ok 


$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
MVBI ae * AND THE DATA TO USE 


CLEAR DEV DEP STG AND CONNECT I/O BLK 
PREPARE DEVICE ONLY, ALREADY CONNECT 


HHH H HHH HHH HK HHH HH HHH 


MVA  DEV1,R5 * ALONG WITH THE ADRS TO USE 
FFN  R3 485) * 
MVWZ OPfN3,R3 CLEAP OLD CONTROLS FOR NEW POUTINE 


MVA INTBL,P7 SET R7 TO CONTROL BLOCK AND 
SVC CICB * CONNECT IT TO THIS DEVICE 
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* SUBROUTINE 


1465+* IL 
1 Ub GB FR HH ee ee 3 he ae he he aK IK he ee oe he ee Ee he fe ae i ae he ae ae oc 2 2h 2 ae oi he ac ae a 3c hc oe he oie he ok oe ok KT 
14674INTOK DC X'706E! COPY STATUS ANY LEVEL INTO R3 TL 
1468+ SRL 13,83 POSITION INDICATORS IN R3 IL 
1469+ MVA OPFTN1,R4 SET UP BASE ADRS IL 
14704INTR1 TBTS (RU,TA SET INTERRUPT RECEIVED IL 
14714 TBT P4.CS IS 'CS IN PROGPESS' ON TL 
1472+ JON wth? * YES. BCH AROUND UPDATE IL 
14734 MVB  R3,$IOIN+1 SAVF {INTERRUPTING CC CODE IL 
14744 MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS IL 
14754INTR2 FOU * IL 
14764+% CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
1477+ SLL 4,R5 POSITION INTR LEVEL AND PUT am 
14784 ABI 1.R5 * IN 'T' BIT I 
14794 CW SINTL,RS IS THIS THE CORRECT INTP LEVEL IL 
14804 JE INTR3 * YES, GO EXIT THIS LEVEL IL 
14814 TBTS (RU, $LE) SET IfTR LEVEL EPROP CONTROL BIT IL 
1482+ TBTS (BULER SET ERROR ON I/O COMMAND CNTL BIT IL 
1483+INTR3 TBTP (RO/XT WAS INTERPUPT EXPECTED IL 
14844 JON nThy * YES, EXIT OFF THIS INTR LEVEL Ts, 
1485+ TBTS (RU,MT) * NO,’ SET MYSTERY INTP CONTROL BIT IL 
1486+ CBI. 4,R3 ATTENTION INTERRUPT? TL 
14874 JE INTRX YES IL 
1488+ TBTS (Ru NG) ERROR, UNEXPECTED INTEPRUPT IL 
14894INTRX SVC if EXIT THIS LEVEL VIA SUPVR TO PGM IL 
VDT HM Me Ree He eK ee oe ee a 2h oe i ae ee he he oe ae ae ae ef a 3c 2c of he 2h oe He he fe 2c ok 2 ae ic he ok ok ok ok ok eK KOKO GE RR] 6 KX 
14924+* 
149 34% THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
149 44x HAS BEEN SERVICED. THE EXERCISER FINDS AN INTEPRUPT HAS BEEN 
149544 RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERPOR CONDITIONS. 

+ 
14974+* 
14984#XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
1499+ BY R62) * YES, EXIT THIS ROUTINE 
1500+ TBTR (R4,CS5) was AbTo CS IN PROGRESS 
15014 JOFF xXtroc * NO, CONTINUE CHECKING 
1502+ TBT R4 , CE) Is CS IN AN ERR CONDITION 
1503+ JOFF xXt0co * NO, BCH 
1504+ B 6)* Cs ERROR 
1505+#XIOCO TBTS ({R4,CSA) TURN ON CS STATS AVAIL FLAG 
1506+ BXS RO, 2) GO TO USER 
15074+XIOCV TBT R4Y,ER) WAS ERROR INTR CONTPOL BIT ON 
1308+ JOFF ocx * NO, EXIT THIS ROUTINE 

+ 
1510+ MVB  $IOTN+1,R5 GET LAST INTR CC CODE 
1511+ CBI 2,-R5 IS THIS cCc=2 
1512+ BNE (Re) * *" NO, BCH TO ERROR HANDLER 
15134+XIOCQ MVB ISB, R5 GET LAST ISB DATA BYTE AND IF CS 
15144 BN xtoc$§-4 * AVATLABLE, GO AND GET IT 
1515+ B (R6) * ERROR 
1516+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
1517+ BXS (R6, 2) RETURN TO USEP VIA PEG 6 
15194+* I/O PARAMETER LIST 
1520+* 
15214+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1522+ DC A(XIOER) ERROR ROUTINE ADRS 
1523+IODCB DC A (*-% DCB ADPS OR LEVEL & INTR 
1524+TOMOD DC Woe: MODIFIER 
1525+ DC A (*-* ADRS OF LAST SVC CALL 
1526+TORSP DC A (*-* SECOND WORD OF LAST IDCB 

+ 
1>28+% INTERPUPT CONTROL BLOCK FOP I/O COMMANDS 

+ 
1530+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
15314 DC A (INTOK INTERRUPT OK RETURN ADRS 
1532+ DC A(INTER INTERRUPT ERROR ADRS 
1533+INTCC DC X¥"'0003' INTERRUPT CODE EXPECTED 
4535+ He He Fe He He He AIK He ee a ie Se Ae He IK hee Hee ee i he i ee ae a a ie i eae 2c ae He a ec Ik hc ee ok oe ee ok kK OK TIM AY 76 ** 
1536+ 
1537+ SUBROUTINE 

+ 
1539+ CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 

+ 
1541+* PURPOSE 
15424 
15434 TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
Vous PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 

+ 
1546+ 
1547+ 
1548+ 
1549+ 
1550+ 
1551+ 
1552+ 
1553+ 
1554+ 
1555+ 
1556+ 
1557+ 
1558+ 
1559+ 
1560+ 
1561+ 
1562+ 
1563+ 
1564+ 
1565+ 
1566+ 
1567+ | BN (R6) * ERPOR RETURN TO USEP 

+ 
1569+$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
1570+ MVA LTOBLK-R7 SET R7 TO CONTROL BLOCK TO PREPARF 
1571+ MVWI X'0708',S$IOIN INITIALIZE CONDITION CODE STORAGE 
1572+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
15734 MVW  R6,LSTTIO SET UP ADDRESS THAT STAPTED LAST 1/0 
15744 SVC PREP * AND CALL ON SUPVR 
1575+ BXS (R6 ¢2) RETURN TO USER 
15774 FOR IO IO Ci $k 2 RO i ACK ei Re RO HO oi I Coto i 2K ok oi ak a ok oe ie ok kok tok kk KOKO 6H A PR 76 ** 
1578+ 
1579+ 
15804 
1581+ 


DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
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DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 


BIT, THEN LOG THE DATA THAT HAS 


BEEN FOUND TO HELP THF OPERATOR DEFINE THE ERROR CONDITION. 


THIS SUBFOUTINE HAS THE FOLLOWING ENTRIES: 


ISB INST 


SET 'NG' BIT AND CONVERT DATA TO LOG 
PETURN TO MDI SUPERVISOR TO TEST STS 


RETURN TO MDI 
IF THE DEVICE COULD NOT BE CONNECTED 


HH ee ae he 2 fe hee he he he ef ee i 2 2 a he oe ae ea ae ie ate oc ate hc ei ec 2c 2c he oi ae i ak ie ek a coke ik ac 2c ie tae 2 i 2 a ae ok aE Kk kc 


SET ON 'NO GOOD! STATUS BIT 
GET ADRS OF CONTROL BLOCK 
CONVERT HEX TO EBC VIS DCP 


SET UP BUFFER STORAGE 


SET UP BUFFER STORAGE 
GO TO MESSAGE WRITER 


GET DEVICE ADDRESS FROM 1DI 


RELEASE INTERPFUPT CONTROL BLOCK 
RETURN TO MDI SUPERVISOR 
NUMBER OF LINES TO PRINT 
LINE LENGTH = 8 CHAR 
LINE LENGTH = 40 CHAR 
DEV1 DEV2 DEV3 DEV4 ! 
LINE LENGTH = 40 CHAR 
LINE LENGTH = 40 CHAR 
DCB5 CHAD BYCT ADRS ! 
LINE LENGTH = 40 CHAR 
LINE LENGTH =_40 CHAR 
CS5=5 .CS-6.-CS=7. CS=8 3 
LINE 


LENGTH = 40 CHAR 


DATA CONTPOL BLOCK FOR CONVERTING HEX TO EBCDIC 


15824+% 

15834+* PURPOSE 

15844* 

1585+% 

15864+* SET THE "NO GOOD! 
1587+* 

1588+* 

1589+* CALLING SEQUENCE 
1590+4+* 

15914% 

15924+* 

15934+* --> B SERRS 

15944* --> B SCONX 

1595+ 

15964+* RETURN CONTROL 

159 74% 

159 84% B TURTN* 
15994+* OR B (R6) * 

1600+% 

1601 

1602+$ERR$ MVWI X'8000',TUSTATUS 
1603+ MVA HEBLK,R? 
1604+ SVC HTOE 
1605+$PRNT MVBI 3,R5 

1606+ MVA  TOWCRK,R3 
1607+ MVW R3,BUFDST 
1608+ MVA  LINE1,R1 
1609+ MVBI 4,R7 

16104 MVBI 8,26 
1611+MVBUF MVFN (R3) , (R1) 
1612+ MVBI 4, R 

1613+ MVBI x'aot,p2 
1614+ MVB  R2 Ri) + 
1615+ JcT MVBUF,R6 
1616+ MVBI 8,86 

1617+ AWT «6 GAR 

1618+ ICT  MVBUF,RS 
16194 MVWI PIDMSG610,PID+2 
1620+ MVA  FAKETU,@DCADD1 
1621+ MVA  DC2PT,SDCADD2 
1622+ OWI BIT0080,SUPSTAT 
1623+ MVA  S$TUID,R3 
1624+ BAL  TUMSGWTR*,R7 
1625+* 

1626+$CONX EOQU * 

1627+ MVB DEVADD,R7 
1628+ SVC RICB 

1629+ B TORTN* 
1630+%* 

1631+BEGIN DC A (9007 
1632+ DC A t0008 
1633+ DC C'** ABORT! 
1634+ DC A (0040) 
1635+ DC C'TUID IOIN 
1636+ DC A (0040) 
1637+LINE1 DC ct 

1638+ DC A (0040) 
1639+ DC C'CNTL DCB2 
1640+ DC A (0040) 
1641+LINE2 DC oh 

1642+ DC A (0040) 
1643+ DC C*RSID CS-2 
16444 DC A (0040) 
16454+LINE3 DC cr 

1646+ 

16474+BUFPT DC A + 8) 
16484+DC2PT DC A (BEGIN) 
16494FIXTU DC X"0101! 
1650+FAKETU DC X'0101! 
1651+PIDMSG10 FOU  X*"F1FO! 
1652+BIT0080 EOQU X*'0080! 
1653+* 

1654+* 

16554+* 

1656+HEBLK DC A 48) 

1657+ DC AST ID) 
1658+ DC A (TUWORK) 
1659 DCB CS,2000,¢¢7¢710,CSBUF 
1660+CSDCB EQU * 
16614CSCTL DC X'2000' 
16624+CSDC2 DC X'00008 
1663#CSDC3 DC X'00008 
1664+CSDC4 DC X'0000! 
16654#CSDC5 DC X'00008 
16664+CSCHN DC A (0000) 
16674+CSBCT DC X¥"0010 
16684+CSADR DC A (CSBUF) 
1669+* 

1670 BUFFR 270,16 
1671+WRBUF EOQU 

1672+ ORG  *4+270 
16734+TUDCB EQU 

16744+DIAGBF EQU * 
1675+RDBUF EQU * 

1676+ ORG ¥*416 

1677+ DS F'o? 

1678 END 


NUMBEP OF BYTES TO CONVE? T 
FROM ADRS 
AND THE TO ADRS 


THIS LABEL DEFINES ENTIRE DCB 
CONTROL WORD 

DCB 2 

DCB 3 

DCB 4 

DCB 5 

CHAIN ADDRESS OF NEXT DCB 
BYTE COUNT 

BUFFER ADDRESS 


WRITE BUFFER 


READ AND DIAGNOSTIC BUFF? R 
END OF MAP 
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DECLARED 
0 
0 


1560 
16 26 
1602 
953 
923 
924 
908 
922 
105 
106 

42 


Wy 


4 


43 

48 
16 31 
1652 
1647 
912 
887 
992 
888 
910 
911 
1667 
941 
1660 
949 
731 
1648 
108 
926 
1674 
1244 

70 
729 

50 
903 
978 
1650 


NAME 
RO. 


-R2. 
-R3. 


oR4, 


~R5. 


-R6. 


-R7. 


$CONC 
SCONX 
SERRS$ 
SINTL 
SIOIN 
$SISB 
SLE 
$TUID 
@DCADD1 
@DCADD2 
@FIXT 


@GOTO 
@QUES 


@STOP 
@TUXX 
BEGIN 
BITO080 
BUFPT 
CE 

CH 
CICB 
CMP 

CS 

CSA 
CSBCT 
CS BUF 
CSDCB 
CSTL8 
DCBUF 
DC2PT 
DEVADD 
DEV1 
DIAGBF 
DIAXFR 
DUMMY 
ENTPT 
EQ 

ER 
EXIT 
FAKETU 
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33 

61 

OCATION (00002F34) 

LOCATION(00002FB8) IN 

LOCATION (00002F68) IN 

LOCATION (00002C48) IN 

HEX LOCATION (00002C14) IN 
1393. 1473. 1510. 157 

HEX LOCATION(00002C16) IN 
1513. 157 

HEX VALUE (00000026) 

HEX LOCATION (00002C12) IN 
6 1657 

HEX LOCATION(000019B8) IN 

HEX LOCATION(000019BA) IN 


HEX i 
513 543 573 


‘ 


—G 
pe es ee ee ee eee Pe les ee ee or loot ee 
—_ = 


5 
5 
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ra KG 
=z 


=m 
td td 
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606 


HEX VALUE (00000200) 
549 555 579 585 
681 123 

HEX rd ae 
489 492 498 516 
654 672 102 

HEX VALUE (00000102) 

HEX Pe a ey 
531 561 594 


624 
HEX LOCATION(00002FC2) IN 
HEX VALUE (00000080) 
HEX LOCATION(000030CA) IN 
HEX VALUE (0000002A) 
HEX VALUE (0000001E) 
HEX VALUE (00000014) 
HEX VALUE (0000001F) 
HEX VALUE (00000028) 
1430 1471 1500 
HEX VALUE (00000029) 
HEX LOCATION (000030 Bu) IN 
HEX LOCATION (00002C32) IN 
HEX LOCATION (000030D8) IN 
HEX LOCATION (00002C40) IN 
HEX LOCATION (00002C22) IN 
HEX LOCATION(000030CC) IN 
HEX LOCATION(000019D0) IN 
1530 162 
HEX LOCATION(00002C1A) IN 
HEX LOCATION(000031F6) IN 
HEX LOCATION(00002DF6) IN 
HEX VALUE (00000000) 
HEX LOCATION(00002894) IN 
HEX VALUE (00000000) 
34564 97° 627 
HEX VALUE (00000021) 
1440 1482 1507 
HEX VALUE (00000006) 


HEX LOCATION (000030D0) IN 
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1148 1150 1150 
1185 1186 1187 
1617 
1613 1614 
1140 1141 1142 
1190 1191 1192 
1392 1393 1428 
1561 1563 1564 
1321 1324 1338 
1429 1430 1432 
1482 1483 1485 
1477 1478 1479 
1618 
1394 1499 1504 
1575 1610 1615 
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DECLARED NAME ATTRIBUTES AND REFERENCES 


DECLARED NAME 


336 95 TUMSGWTPR ADDRESS. HEX LOCATION(O0O0018BA) IN CSECT(I6404 ) LENGTH (1) 
498 N00008 ADDRESS, HEX LOCATION(00002606) IN CSECT (T6404 ) LENGTH (2) 1624 
339 493 79 TUPARM1 ADDRESS. HEX LOCATION(OO00189A) IN CSECT(I6404 ) LENGTH (1) 
501 N00009 ADDPESS. HEX LOCATION (0000260A) IN CSECT (T6404 ) LENGTH (2) 126 1128 129 1160 
342 88 TUPARPM10 ADDRESS. HEX LOCATION(OOOO18AC) IN CSECT(I6404 ) LENGTH (1) 
513 N00010 ADDRESS. HEX LOCATION(00002640) IN CSECT (T6404 ) LENGTH (2) 148 
345 84 TUPARM6 ADDRESS. HEX LOCATION (000018A4) IN CSECT(I6404 ) LENGTH (1) 
5 16 NO0011 ADDRESS. HEX LOCATION (00002644) IN CSECT(I6404 ) LENGTH (2) 133 
348 502 - 85 TUPARM7 ADDRESS. HEX LOCATION (OOOO18A6) IN CSECT (I6404 ) LFNGTH (1) 
5319 N00012 ADDRESS. HEX LOCATION (00002648) IN CSECT(I6404 ) LENGTH (2) 1156 
351 86 TUPARNS8 ADDRESS. HEX LOCATION(000018A8) IN CSECT (I6404 ) LENGTH (1) 
525 N00013 ADDRESS. HEX LOCATION (00002654) IN CSECT (T6404 ) LENGTH (2) 1134 1146 1158 11 
354 517 87 TUPARHNY ADDRESS. HEX LOCATION(OOOO18AA) IN CSECT (T6404 ) LENGTH (1) 
531 NOO0O14 ADDRESS. HEX LOCATION (00002€60) IN CSECT(IE6é404 ) LENGTH (2) 1185 
357 499 101 TURESUL ADDPESS. HEX LOCATION (000018C8) IN CSECT (T6404 ) LENGTH (1) 
543 NO0015 ADDRESS. HEX LOCATION (00002696) IN CSECT(I6404 ) LENGTH (2) 192. 1194 
360 954 TURTN ADDRESS. HEX LOCATION(OO002C4A) IN CSECT (T6404 ) LENGTH (2) 
546 N00016 ADDRESS. HEX LOCATION(0000269A) IN CSECT(T6404 ) LENGTH (2) 1118 1629 
363 532 77 TUSTATUS ADDRESS. HEX LOCATION(00001818) IN CSECT(I64048 ) LENGTH (1) 
549 N00017 ADDRESS. HEX LOCATION (OOO00269E) IN CSECT (T6404 ) LENGTH (2) 1602 
366 78 TUWORK ADDRESS. HEX LOCATION (0000181A) IN CSECT (T6404 ) LENGTH (1) 
555 N00018 ADDRESS. HEX LOCATION (QOO026AA) IN CSECT (T6404 ) LENGTH (2) 1606 1658 
369 S47 1118 T6404 ADDRESS. HEX Boonen eae ek IN CSECT (16404 } LENGTH (4) 
561 NO00019 ADDRESS. HEX LOCATION (000026B6) IN CSECT(T6404 ) LENGTH (2) 470 503 533 563 596 26 659 689 
372 490 1126 T6404B ADDRESS. HEX LOCATION(00002C74) IN CSECT (T6404 ) LENGTH (4) 
573 N00020 ADDRESS. HEX LOCATION(O00026E8) IN CSECT(I6404 ) LENGTH (2) 1131 
375 1130 T6404C ADDRESS. HEX LOCATION(00002C82) IN CSECT(I6404 ) LENGTH (2) 
576 NOO021 ADDRESS. HEX LOCATION (OO0O0026EC) IN CSECT(I6404 ) LENGTH (2) 1127 
378 562 1140 T6404D ADDRESS. HEX LOCATION(OO002C9A) IN CSECT(I6404 ) LENGTH (4) 
579 N00022 ADDRESS. HEX LOCATION(O000026F0) IN CSECT (T6404 ) LENGTH (2) 1138 
381 1141 T64O04E ADDRESS. HEX LOCATION (O00002C9E) IN CSECT (T6404 ) LENGTH (4) 
585 N00023 ADDRESS. HEX LOCATION (OQOO26FC) IN CSECT(I6404 ) LENGTH (2) 1135 
384 577 1146 T6404G ADDRESS. HEX LOCATION(O0002CAA) IN CSECT(I6404 ) LENGTH (6) 
591 NO0024 ADDRESS. HEX LOCATION (00002708) IN CSECT(I6404 ) LENGTH (2) 1744 
387 48 1160 T6404T ADDRESS. HEX LOCATION (00002CD2) IN CSECT(I6404 ) LENGTH (6) 
594 NO00025 ADDRESS. HEX LOCATION(0000270C) IN CSECT(T6404 ) LENGTH (2) 1149 1154 175 
390 1170 T6404 ADDRESS. HEX LOCATION(O0002CF2) IN CSECT (T6404 ) LFNGTH (6) 
606 NO0026 ADDRESS. HEX LOCATION (00002742) IN CSECT (T6404 ) LENGTH (2) 1167 
393 1171 T6404K ADDRESS. HEX LOCATION(OO0002CF8) IN CSECT(I6404 ) LENGTH (2) 
609 N00027 ADDRESS. HEX LOCATION (00002746) IN CSECT(T6404 ) LENGTH (2) 1173 
396 595 1174 T6404L ADDRESS. HEX LOCATION (00002D02) IN CSECT (T6404 ) LENGTH (6) 
612 NO00028 ADDRESS. HEX LOCATION(OOO0274A) IN CSECT(I6404 ) LENGTH (2) 1165 1169 
399 1182 T6404M ADDRESS. HEX LOCATION(00002D16) IN CSECT(I6404 ) LENGTH (2) 
618 N00029 ADDRESS. HEX LOCATION(00002756) IN CSECT(T6404 ) LENGTH (2) 1178 
402 610 1192 T6404S ADDRESS. HEX LOCATION (00002D32) IN CSECT(I6404 ) LENGTH (4) 
624 N00030 ADDRESS. HEX LOCATION(00002762) IN CSECT (T6404 ) LENGTH (2) 1189 
405 392 1203 T64O4V ADDPESS. HEX LOCATION (O0002D4A) IN CSECT(T6404 ) LENGTH (2) 
6 36 N00031 ADDRESS. HEX LOCATION(00002798) IN CSECT(I6404 ) LENGTH (2) 1146 1186 
408 1194 T6404X ADDRESS. HEX LOCATION(00002D38) IN CSECT (T6404 ) LENGTH (6) 
639 N00032 ADDRESS. HEX LOCATION(0000279C) IN CSECT(I6404 ) LENGTH (2) 1163. 1184 
411 625 1195 T64O04Y ADDRESS. HEX LOCATION(OO0002D3E) IN CSECT (T6404 ) LENGTH (6) 
642 N00033 ADDRESS. HEX LOCATION(000027A0) IN CSECT(I6404 ) LENGTH (2) 1193 
414 1199 T6404Z ADDPESS. HEX LOCATION (00002D48) IN CSECT (T6404 ) LENGTH (2) 
648 N00034 ADDPESS. HEX LOCATION(O00027AC) IN CSECT (T6404 ) LENGTH (2) 1170 1172 
417 1671 WRBUF ADDRESS. HEX LOCATION(OO0O030E8) IN CSECT (T6404 ) LENGTH (1) 
654 NO00035 ADDRESS. HEX LOCATION(000027B8) IN CSECT (T6404 ) LENGTH (2) 1203 
420 484 906 XE ABSOLUTE. HEX VALUE(00000024) 
657 N00036 ADDRESS. HEX LOCATION(000027BC) IN CSECT(I6404 ) LENGTH (2) 1436 1498 
423 904 XT ABSOLUTE. HEX VALUE(00000022) 
669 N00037 ADDRESS. HEX LOCATION(000027F2) IN CSECT(I6404 ) LENGTH (2) 1342 1483 
426 1498 XIOCK ADDRESS. HEX LOCATION(OOOO2EEA) IN CSECT(I6404 ) LENGTH (2) 
672 N00038 ADDRESS. HEX LOCATION(000027F6) IN CSECT(T6404 ) LENGTH (2) 1352 
429 658 1505 XIOCO ADDRESS. HEX LOCATION (OOOO2EFC) IN CSECT(I6404 ) LENGTH (2) 
675 N00039 ADDRESS. HEX LOCATION(000027FA) IN CSECT (T6404 ) LENGTH (2) 1503 
432 1322 XIOCS ADDPESS. HEX LOCATION (00002E2C) IN CSECT(I6404 ) LENGTH (6) 
681 NO0040 ADDRESS. HEX LOCATION (00002806) IN CSECT(I6404 ) LENGTH (2) 1179 1514 
435 673 1507 XTOCV ADDRESS. HEX LOCATION(OOOO2F00) IN CSECT (T6404 ) LENGTH (2) 
687 NOO0041 ADDRESS. HEX LOCATION (00002812) IN CSECT (T6404 ) LENGTH (2) 1501 
438 655 1516 XIOCX ADDPESS. HEX LOCATION(OOOO2F1A) IN CSECT(T6404 ) LENGTH (4) 
699 NO00042 ADDRESS. HEX LOCATION (00002848) IN CSECT(T6404 ) LENGTE (2) 1508 
44 1391 XIOER ADDRESS. HEX LOCATION (OOOO2E88) IN CSECT(I6404 ) LENGTH (2) 
702 NOO0043 ADDRESS. HEX LOCATION (OQOO00284C) IN CSECT (T6404 ) LENGTH (2) 1522 
444 688 1326 XI01 ADDRESS. HEX LOCATION (O0002E3C) IN CSECT(I6404 ) LENGTH (4) 
705 NOOO44 ADDRESS. HEX LOCATION (00002850) IN CSECT (T6404 ) LENGTH (2) 1162 1318 
447 T42 1339 XIO2 ADDRESS. HEX LOCATION (O00002E62) IN CSECT(T6404 ) LENGTH (2) 
717 NOOO045 ADDPESS. HEX LOCATION (0000287E) IN CSECT(T6404 ) LENGTH (2) 1325 
450 1351 XITO8 ADDRESS. HEX LOCATION (OO002E76) IN CSECT(I6404 ) LENGTH (2) 
720 NOOO46 hoo ane LOCATION (00002882) IN CSECT (T6404 ) LENGTH (2) 1356 
723 NOOO47 ADDRESS. HEX LOCATION (00002886) IN CSECT (T6404 ) LENGTH (2) 
456 7103 ROR ROR RRO ROR IR ROR IR SRR RRR ROR BOR RFR TL AST PAGE RI RIOR FORO IORI ROR FO IO a 
867 OPTN1 Seon anes EE eo en earn) IN CSECT(I6404 ) LENGTH (2) 
869 OPTN2 ope HEX LOCATION(QOOO2COE) IN CSECT(I6404 ) LENGTH (2) 
890 OPTN3 fey eee LOCATION (00002C10) IN CSECT (T6404 ) LENGTH (2) 
75 OPWD1 Pe a ate ala HEX LOCATION(0000180E) IN CSECT(T6404 ) LENGTH (1) 
104 PARMARA ADDRESS. HEX re aaaes ie tuaee te eae IN CSECT (T6404 ) LENGTH (1) 
478 3911 541 971 604 34 667 697 715 
2 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(I6404 ) LENGTH (1) 
74 15 76 77 78 719 80 81 2 
83 84 85 86 87 88 89 90 91 
92 93 94 35 96 97 98 99 100 
101 102 103 104 105 106 107 108 109 
110 111 112 113 114 115 1619 
1651 PIDMSG10 fener HEX VALUE (OOOOFT1FO) 
984 PREP gees HEX VALUE (0000000C) 
1675 RDBUF co HEX LOCATION(000031F6) IN CSECT(I6404 ) LENGTH (1) 
991 RICB jeoeo HEX VALUE (00000013) 
982 START Pi ae ae HEX VALUE (0000000A) 
107 SUPSTAT oo HEX LOCATION(000019C4) IN CSECT (T6404 ) LENGTH (1) 
1212 TCHAR on HEX LOCATYON(00002D56) IN CSECT (T6404 ) LENGTH (1) 


